﻿Public Class App

    Private Shared _instance As App
    Public Shared Property Instance() As App
        Get
            If _instance Is Nothing Then
                _instance = New App()
            End If
            Return _instance
        End Get
        Set(ByVal value As App)
            _instance = value
        End Set
    End Property


    Private _userID As Integer
    Public Property UserID() As Integer
        Get
            Return _userID
        End Get
        Set(ByVal value As Integer)
            _userID = value
        End Set
    End Property

End Class
